home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
CLUSTER.EVT
< prev
next >
Wrap
Text File
|
1992-08-31
|
446b
|
20 lines
procedure hdInsert ;
{$IFDEF code}{$I cluster.src }{$ENDIF}
begin
{$IFDEF code}
Desktop^.Insert ( MakeDialog ) ;
{$ELSE}
Desktop^.Insert ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
{$ENDIF}
end ;
procedure hdExecView ;
{$IFDEF code}{$I cluster.src }{$ENDIF}
begin
{$IFDEF code}
Desktop^.ExecView ( MakeDialog ) ;
{$ELSE}
Desktop^.ExecView ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
{$ENDIF}
end ;